/*Replication file for: Race, Dehumanization, and the NFL National Anthem Protests
Stephen M. Utych
Journal of Experimental Political Science*/

/*Main Text Analyses*/

use anthemprotests1.dta, clear

*Figure 1 
reg support c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military  c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace

graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure 1. Effect of Dehumanization - Derek Carr") scheme(sj) 

*Figure 2
reg support c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military  c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace

graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure 2. Effect of Dehumanization - Dak Prescott") scheme(sj) 


use anthemprotests2.dta, clear
*Figure 3
reg support c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(0) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(0) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(0) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure 3. Effect of Dehumanization - White Player") scheme(sj) 


*Figure 4
reg support c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(1) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(1) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(1) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(scatter) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure 4. Effect of Dehumanization - Black Player") scheme(sj) 

/*Appendix Analyses*/

use anthemprotests1.dta, clear

*Table B1
reg support c.dh c.dak c.dh#c.dak repub female age educ cowboys raiders  ft_5  if race==5
reg punish  c.dh c.dak c.dh#c.dak repub female age educ cowboys raiders  ft_5 if race==5
reg military  c.dh c.dak c.dh#c.dak repub female age educ cowboys raiders  ft_5 if race==5

use anthemprotests2.dta, clear
*Table B2
reg support c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
reg punish  c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
reg military c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5

use anthemprotests1.dta, clear
*Table B3
reg support c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5
reg punish  c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5
reg military c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5

use anthemprotests2.dta, clear
*Table B4
reg support c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5
reg punish c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5
reg military c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5

use anthemprotests1.dta, clear
*Table B5
reg support dh repub female age educ  ft_5 cowboys if race==2&dak==1
reg punish dh repub female age educ  ft_5 cowboys  if race==2&dak==1
reg military dh repub female age educ  ft_5 cowboys  if race==2&dak==1

use anthemprotests1.dta, clear
*Table B6
reg support dh repub female age educ  ft_5 raiders if race==2&dak==0
reg punish dh repub female age educ  ft_5 raiders if race==2&dak==0
reg military dh repub female age educ  ft_5 raiders if race==2&dak==0

use anthemprotests1_cleanip.dta, clear
*Table B7
reg support c.dh c.dak c.dh#c.dak repub female age educ cowboys raiders  ft_5  if race==5
reg punish  c.dh c.dak c.dh#c.dak repub female age educ cowboys raiders  ft_5 if race==5
reg military  c.dh c.dak c.dh#c.dak repub female age educ cowboys raiders  ft_5 if race==5

use anthemprotests2_cleanip.dta, clear
*Table B8
reg support c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
reg punish  c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
reg military c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5

use anthemprotests1.dta, clear
*Table B9
reg support c.dh c.dak c.ft_5 c.dh#c.dak c.dh#c.ft_5 c.dak#c.ft_5 c.dh#c.dak#c.ft_5 repub female age educ cowboys raiders   if race==5
reg punish c.dh c.dak c.ft_5 c.dh#c.dak c.dh#c.ft_5 c.dak#c.ft_5 c.dh#c.dak#c.ft_5 repub female age educ cowboys raiders   if race==5
reg military  c.dh c.dak c.ft_5 c.dh#c.dak c.dh#c.ft_5 c.dak#c.ft_5 c.dh#c.dak#c.ft_5 repub female age educ cowboys raiders   if race==5

use anthemprotests1.dta, clear
*Table B10
reg support  c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 
reg punish  c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 
reg military  c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 

use anthemprotests2.dta, clear
*Table B11
reg support c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age  
reg punish  c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age 
reg military c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age 
 
use anthemprotests1.dta, clear
*Figure B1
reg support c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace

graph combine file1.gph file2.gph file3.gph, ycommon xcommon com rows(1) ti("Figure B1. Effect of Dehumanization by Party - Derek Carr") scheme(sj)

use anthemprotests1.dta, clear
*Figure B2
reg support c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.dak c.repub c.dh#c.dak c.dh#c.repub c.dak#c.repub c.dh#c.dak#c.repub  female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace

graph combine file1.gph file2.gph file3.gph, ycommon xcommon com rows(1) ti("Figure B2. Effect of Dehumanization by Party - Dak Prescott") scheme(sj)

use anthemprotests2.dta, clear
*Figure B3
reg support c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5
margins, at(blackp=(0) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5
margins, at(blackp=(0) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5
margins, at(blackp=(0) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B3. Effect of Dehumanization by Party - White Player Study 2") scheme(sj) 

use anthemprotests2.dta, clear
*Figure B4
reg support c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5
margins, at(blackp=(1) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5
margins, at(blackp=(1) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.blackp c.repub c.dh#c.blackp c.dh#c.repub c.blackp#c.repub c.dh#c.blackp#c.repub  educ female age  if race==5
margins, at(blackp=(1) dh=(0 1) repub=(0 6)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B4. Effect of Dehumanization by Party - Black Player Study 2") scheme(sj)  


use anthemprotests1_cleanip.dta, clear
*Figure B5
reg support c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1)) l(80) saving(e2, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military  c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(0) dh=(0 1)) l(80) saving(e3, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B5. Effect of Dehumanization - Derek Carr, Exclude Bots") scheme(sj) 

use anthemprotests1_cleanip.dta, clear
*Figure B6
reg support c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1)) l(80) saving(e2, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military  c.dak c.dh c.dak#c.dh repub female age educ cowboys raiders ft_5  if race==5
margins, at(dak=(1) dh=(0 1)) l(80) saving(e3, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace

graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B6. Effect of Dehumanization - Dak Prescott, Exclude Bots") scheme(sj) 

use anthemprotests2_cleanip.dta, clear
*Figure B7
reg support c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(0) dh=(0 1)) l(80)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(0) dh=(0 1)) l(80) 
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(0) dh=(0 1)) l(80)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B7. Effect of Dehumanization - White Player - Study 2, Exclude Bots") scheme(sj) 

use anthemprotests2_cleanip.dta, clear
*Figure B8
reg support c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(1) dh=(0 1)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(1) dh=(0 1)) l(80) saving(e2, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.blackp c.dh#c.blackp repub educ female age  if race==5
margins, at(blackp=(1) dh=(0 1)) l(80) saving(e3, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B8. Effect of Dehumanization - Black Player - Study 2, Exclude Bots") scheme(sj) 

use anthemprotests1.dta, clear
*Figure B9
reg support c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 
margins, at(dak=(1) dh=(0 1) white_non=(1)) l(80) 
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 
margins, at(dak=(1) dh=(0 1) white_non=(1)) l(80) 
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 
margins, at(dak=(1) dh=(0 1) white_non=(1)) l(80)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace

graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B9. Effect of Dehumanization - Dak Prescott, White") scheme(sj) 

use anthemprotests1.dta, clear
*Figure B10
reg support  c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 
margins, at(dak=(1) dh=(0 1) white_non=(0)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 
margins, at(dak=(1) dh=(0 1) white_non=(0)) l(80) saving(e2, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.dak c.white_non c.dh#c.dak c.dh#c.white_non c.dak#c.white_non c.dh#c.dak#c.white_non repub female age educ cowboys raiders ft_5 
margins, at(dak=(1) dh=(0 1) white_non=(0)) l(80) saving(e3, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace

graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B10. Effect of Dehumanization - Dak Prescott, Non-White") scheme(sj)

use anthemprotests2.dta, clear
*Figure B11
reg support c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age  
margins, at(blackp=(1) dh=(0 1) white_non=(1)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age 
margins, at(blackp=(1) dh=(0 1) white_non=(1)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age 
margins, at(blackp=(1) dh=(0 1) white_non=(1)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B11. Effect of Dehumanization - Black Player, Whites") scheme(sj)  

use anthemprotests2.dta, clear
*Figure B12
reg support c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age  
margins, at(blackp=(1) dh=(0 1) white_non=(0)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Protest Support) ti("") scheme(sj) 
graph save file1.gph, replace
reg punish  c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age 
margins, at(blackp=(1) dh=(0 1) white_non=(0)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Punish Protest) ti("") scheme(sj)
graph save file2.gph, replace
reg military c.dh c.blackp c.white_non c.dh#c.blackp c.dh#c.white_non c.blackp#c.white_non c.dh#c.blackp#c.white_non  repub educ female age 
margins, at(blackp=(1) dh=(0 1) white_non=(0)) l(80) saving(e1, replace)
marginsplot, x(dh) recast(dot) yscale(range(2 5)) ylabel(2(1)5) graphregion(color(white)) xtitle(Dehumanization) ytitle(Disrepsect Military) ti("") scheme(sj) 
graph save file3.gph, replace


graph combine file1.gph file2.gph file3.gph, ycommon xcommon rows(1) ti("Figure B12. Effect of Dehumanization - Black Player, Non-Whites") scheme(sj)  

*Table C1

use anthemprotests1.dta, clear
*Study 1
tab  female if race==5
sum age if race==5
tab repub if race==5
tab educ if race==5

use anthemprotests2.dta, clear
*Study 2
tab  female if race==5
sum age if race==5
tab repub if race==5
tab educ if race==5

